home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / mpfeel.lha / MPFeel / Plurals / mp_pmem_mgmt.m < prev    next >
Text File  |  1992-05-26  |  1KB  |  67 lines
  1. /*
  2.  *    Plurals
  3.  *
  4.  *    Author:    S.C.Merrall
  5.  *
  6.  *    File:    mp_pmem_mgmt.m
  7.  *
  8.  *    Contents:    
  9.  *
  10.  *    Description:    Manages the one time plural space at lowest level -
  11.  *            supports allocation of two classes of objects with 
  12.  *            rather different requirements and allocation behaviour.
  13.  *            
  14.  *
  15.  *    Change History:
  16.  *
  17.  *    Date   Name Comment
  18.  *    -------- ---- -------
  19.  *    29:01:91 SCM  Created
  20.  *    14:02:91 SCM  Coded in terms of mp_objects via MP_Handles
  21.  *    18:02:91 SCM  Proper naming convention
  22.  *
  23.  */
  24.  
  25. #include <mpl.h>
  26. #include <stdio.h>
  27.  
  28. #include "proc_pair.h"
  29.  
  30. #include "constant.h"
  31.  
  32. /*  Memory/Processor Management Parameters */
  33. /*  ================ ========== ========== */
  34.  
  35. /*  Visible Externally */
  36.  
  37. plural natural memory[MEMORY_SIZE_IN_BYTES/sizeof(natural)];
  38.  
  39. plural natural heap_space = TOP;
  40.  
  41. natural handle_space;
  42.  
  43. natural *handle_space_usage;    /* alloc/realloc would be good here I think */
  44.  
  45. /*  Internals */
  46.  
  47. natural default_start;
  48.  
  49. /*----------------------------------------------------------------------------*
  50.  * Function   : find_slice
  51.  *
  52.  * Parameters : int type:    The type of slice we are allocating
  53.  *        int start:    Where to start searching from
  54.  *
  55.  * Description: 
  56.  *
  57.  * Result     : type name description
  58.  *---------------------------------------------------------------------------*/
  59.  
  60. #ifdef __STDC__
  61.  
  62. #else
  63.  
  64. #endif
  65.  
  66.  
  67.